home *** CD-ROM | disk | FTP | other *** search
/ HaCKeRz Kr0nlcKLeZ 1 / HaCKeRz Kr0nlcKLeZ.iso / scriptz / dalpror5.exe / events.ini < prev    next >
Encoding:
INI File  |  1997-04-23  |  15.9 KB  |  299 lines
  1. [script]
  2. n0=#floodultraevent start
  3. n1=on 1:action:*:?:.close -m $nick | .ignore -inpt *!*@* | halt
  4. n2=on 1:chat:*:.close -c $nick | .ignore -inpt *!*@* | halt
  5. n3=on 1:ctcpreply:*:.ignore -inpt *!*@* | halt
  6. n4=on 1:invite:#:.ignore -inpt *!*@* | halt
  7. n5=on 1:nosound:.ignore -inpt *!*@* | halt
  8. n6=on 1:notice:*:?:.ignore -inpt *!*@* | halt
  9. n7=on 1:serv:*:.close -f $nick | .ignore -inpt *!*@* | halt
  10. n8=on 1:snotice:*:.ignore -inpt *!*@* | halt
  11. n9=on 1:text:*:?:.close -m $nick | .ignore -inpt *!*@* | halt
  12. n10=on 1:wallops:*:.ignore -inpt *!*@* | halt
  13. n11=#floodultraevent end
  14. n12=on !1:invite:#:notice $nick You invited me to $chan $+ . All furthur invites will be ignored. ü▀ΩtπFú≥≤╨ü | echo 2 -a You were invited by $nick to $chan $+ . | .ignore -iu45 $nick 2
  15. n13=#floodchan start
  16. n14=on !1:action:*:#:floodchan
  17. n15=on !1:notice:*:#:floodchan
  18. n16=on !1:text:*:#:floodchan
  19. n17=#floodchan end
  20. n18=#floodchat start
  21. n19=on !1:chat:*:{
  22. n20=  if ((%textlength != $null) && ($len($parms) > %textlength)) { .close -c $nick | notice $nick Chat Flood! You are being ignored. ü▀ΩtπFú≥≤╨ü | unset %flood.chat. [ $+ [ $nick ] ] | .ignore -ntu45 $nick 2 | goto end }
  23. n21=  inc %flood.chat. [ $+ [ $nick ] ] 1
  24. n22=  if %flood.chat. [ $+ [ $nick ] ] == 1 .timer 1 10 unset %flood.chat. [ $+ [ $nick ] ]
  25. n23=  if %flood.chat. [ $+ [ $nick ] ] == 5 { .close -c $nick | notice $nick Chat Flood! You are being ignored. ü▀ΩtπFú≥≤╨ü | unset %flood.chat. [ $+ [ $nick ] ] | .ignore -ntu45 $nick 2 }
  26. n24=  :end
  27. n25=}
  28. n26=#floodchat end
  29. n27=#floodctcpreply start
  30. n28=on !1:ctcpreply:*:{
  31. n29=  inc %flood.ctcpreply. [ $+ [ $wildsite ] ] 1
  32. n30=  if %flood.ctcpreply. [ $+ [ $wildsite ] ] == 1 .timer 1 12 unset %flood.ctcpreply. [ $+ [ $wildsite ] ]
  33. n31=  if %flood.ctcpreply. [ $+ [ $wildsite ] ] == 3 { notice $nick Private CTCP Reply Flood! You are being ignored. ü▀ΩtπFú≥≤╨ü | unset %flood.ctcpreply. [ $+ [ $wildsite ] ] | .ignore -nu90 $wildsite }
  34. n32=  if $parm1 == ping { %time = $ctime - $parm2 | notice $nick [ $+ $nick PING reply]: %time secs ü▀ΩtπFú≥≤╨ü | unset %time }
  35. n33=}
  36. n34=#floodctcpreply end
  37. n35=#floodinvite start
  38. n36=on !1:invite:#:{
  39. n37=  inc %flood.invite. [ $+ [ $wildsite ] ] 1
  40. n38=  if %flood.invite. [ $+ [ $wildsite ] ] == 1 .timer 1 90 unset %flood.invite. [ $+ [ $wildsite ] ]
  41. n39=  if %flood.invite. [ $+ [ $wildsite ] ] == 3 { notice $nick Invite Flood! All further invites from you will be ignored. ü▀ΩtπFú≥≤╨ü | unset %flood.invite. [ $+ [ $wildsite ] ] | .ignore -iu90 $wildsite }
  42. n40=}
  43. n41=#floodinvite end
  44. n42=#floodnick start
  45. n43=on !@1:nick:{
  46. n44=  inc %flood.nickname. [ $+ [ $wildsite ] ] 1
  47. n45=  if %flood.nickname. [ $+ [ $wildsite ] ] == 1 .timer 1 20 unset %flood.nickname. [ $+ [ $wildsite ] ]
  48. n46=  if %flood.nickname. [ $+ [ $wildsite ] ] >= 3 { 
  49. n47=    mode $chan -o+b $newnick $wildsite
  50. n48=    kick $chan $newnick Nick Flood! ü▀ΩtπFú≥≤╨ü
  51. n49=    .timer 1 45 mode $chan -b $wildsite
  52. n50=    set %f 0
  53. n51=    :do
  54. n52=    inc %f 1
  55. n53=    if $chan(%f) == $null goto end
  56. n54=    if $chan(%f) == $chan goto do
  57. n55=    if $newnick ison $chan(%f) { mode $chan(%f) -o+b $newnick $wildsite | kick $chan(%f) $newnick Nick Flood! ü▀ΩtπFú≥≤╨ü | .timer 1 45 mode $chan(%f) -b $wildsite }
  58. n56=    goto do
  59. n57=    :end
  60. n58=    unset %f
  61. n59=  }
  62. n60=}
  63. n61=#floodnick end
  64. n62=#floodprivate start
  65. n63=on !1:action:*:?:{
  66. n64=  if ((%textlength != $null) && ($len($parms) > %textlength)) { .close -m $nick | notice $nick Private Action Flood! You are being ignored. ü▀ΩtπFú≥≤╨ü | unset %flood.private. [ $+ [ $wildsite ] ] | .ignore -pu45 $wildsite | goto end }
  67. n65=  inc %flood.private. [ $+ [ $wildsite ] ] 1
  68. n66=  if %flood.private. [ $+ [ $wildsite ] ] == 1 .timer 1 10 unset %flood.private. [ $+ [ $wildsite ] ]
  69. n67=  if %flood.private. [ $+ [ $wildsite ] ] == 5 { .close -m $nick | notice $nick Private Action Flood! You are being ignored. ü▀ΩtπFú≥≤╨ü | unset %flood.private. [ $+ [ $wildsite ] ] | .ignore -pu45 $wildsite }
  70. n68=  :end
  71. n69=}
  72. n70=on !1:notice:*:?:{
  73. n71=  if ((%textlength != $null) && ($len($parms) > %textlength)) { notice $nick Private Notice Flood! You are being ignored. ü▀ΩtπFú≥≤╨ü | .ignore -nu45 $wildsite | goto end }
  74. n72=  inc %flood.notice. [ $+ [ $wildsite ] ] 1
  75. n73=  if %flood.notice. [ $+ [ $wildsite ] ] == 1 .timer 1 10 unset %flood.notice. [ $+ [ $wildsite ] ]
  76. n74=  if %flood.notice. [ $+ [ $wildsite ] ] == 5 { notice $nick Private Notice Flood! You are being ignored. ü▀ΩtπFú≥≤╨ü | unset %flood.notice. [ $+ [ $nick ] ] | .ignore -nu45 $wildsite }
  77. n75=  :end
  78. n76=}
  79. n77=on !1:text:*:?:{
  80. n78=  if ((%textlength != $null) && ($len($parms) > %textlength)) { .close -m $nick | notice $nick Private Action Flood! You are being ignored. ü▀ΩtπFú≥≤╨ü | unset %flood.private. [ $+ [ $wildsite ] ] | .ignore -pu45 $wildsite | goto end }
  81. n79=  inc %flood.private. [ $+ [ $wildsite ] ] 1
  82. n80=  if %flood.private. [ $+ [ $wildsite ] ] == 1 .timer 1 10 unset %flood.private. [ $+ [ $wildsite ] ]
  83. n81=  if %flood.private. [ $+ [ $wildsite ] ] == 5 { .close -m $nick | notice $nick Private Text Flood! You are being ignored. ü▀ΩtπFú≥≤╨ü | unset %flood.private. [ $+ [ $wildsite ] ] | .ignore -pu45 $wildsite }
  84. n82=  :end
  85. n83=}
  86. n84=#floodprivate end
  87. n85=#floodrevdoor start
  88. n86=on !@1:part:#:{
  89. n87=  inc %flood.part. [ $+ [ $nick ] ] 1
  90. n88=  if %flood.part. [ $+ [ $nick ] ] == 1 .timer 1 20 unset %flood.part. [ $+ [ $nick ] ]
  91. n89=  if %flood.part. [ $+ [ $nick ] ] == 3 {
  92. n90=    ban -u45 $chan $nick 2
  93. n91=    describe $chan has banned $nick for a Revolving Door Flood! ü▀ΩtπFú≥≤╨ü
  94. n92=    notice $nick You have been banned from $chan for a Revolving Door Flood! ü▀ΩtπFú≥≤╨ü
  95. n93=    unset %flood.part. [ $+ [ $nick ] ]
  96. n94=  }
  97. n95=}
  98. n96=#floodrevdoor end
  99. n97=#floodserv start
  100. n98=on !1:serv:*:{
  101. n99=  if ((%textlength != $null) && ($len($parms) > %textlength)) { .close -f $nick | notice $nick Server Flood! You are being ignored. ü▀ΩtπFú≥≤╨ü | unset %flood.serv. [ $+ [ $nick ] ] | .ignore -ntu45 $nick 2 | goto end }
  102. n100=  inc %flood.serv. [ $+ [ $nick ] ] 1
  103. n101=  if %flood.serv. [ $+ [ $nick ] ] == 1 .timer 1 10 unset %flood.serv. [ $+ [ $nick ] ]
  104. n102=  if %flood.serv. [ $+ [ $nick ] ] == 5 { .close -f $nick | notice $nick Server Flood! You are being ignored. ü▀ΩtπFú≥≤╨ü | unset %flood.serv. [ $+ [ $nick ] ] | .ignore -ntu45 $nick 2 }
  105. n103=  :end
  106. n104=}
  107. n105=#floodserv end
  108. n106=#welcome off
  109. n107=on 1:JOIN:#:/notice $nick I have a %theme server under $chan. The trigger is %trigger max gets are %maxgets
  110. n108=#welcome end
  111. n109=#welcome2 off
  112. n110=on 1:JOIN:#:/notice $nick I have a %theme2 server under $chan. The trigger is %trigger2 max gets are %maxgets2
  113. n111=#welcome2 end
  114. n112=#onjoin off
  115. n113=on 1:JOIN:#:/notice $nick Hi $nick welcome to $chan! 4--==<<DALPro97>>==-- R5
  116. n114=#OnJoin end
  117. n115=#onpart off
  118. n116=on 1:PART:#:/notice $nick It was good having you $nick! 4--==<<DALPro97>>==-- R5
  119. n117=#OnPart end
  120. n118=on 1:TEXT:º*:#: {
  121. n119=  set %len2 $len($parm2*)
  122. n120=  if (%len2 > 300) { echo 4 $chan *** Decode halted; possible decode flood from $nick $+ . | halt }
  123. n121=  if ($mid(1,1,$parm2*) == º) { set %pos2 1 | set %color2 2 | set %decodekey 91 | goto start1 }
  124. n122=  if ((%key < 2) || (%key > 90)) { key }
  125. n123=  set %pos2 0 | set %color2 4 | set %decodekey %key
  126. n124=  :start1
  127. n125=  set %code2 ""
  128. n126=  %key2 = %decodekey + 33
  129. n127=  :start2
  130. n128=  inc %pos2 1
  131. n129=  set %asc2 $asc($mid(%pos2,1,$parm2*))
  132. n130=  if (%asc2 < %key2) { inc %asc2 94 }
  133. n131=  dec %asc2 %decodekey
  134. n132=  if (%asc2 == 94) { set %asc2 160 }
  135. n133=  set %code2 %code2 $+ $chr(%asc2)
  136. n134=  if (%pos2 < %len2) { goto start2 }
  137. n135=  echo %color2 $chan < $+ $nick $+ > %code2
  138. n136=  unset %len2 | unset %asc2 | unset %key2 | unset %pos2 | unset %code2 | unset %color2
  139. n137=  unset %decodekey
  140. n138=}
  141. n139=#swear off
  142. n140=on 1:TEXT:*fuck*:#:/kick $chan $nick SwEaRkIcK! WE DONT USE  $parms  IN $chan !!!
  143. n141=on 1:ACTION:*fuck*:#:/kick $chan $nick SwEaRkIcK! WE DONT USE  $parms  IN $chan !!!
  144. n142=on 1:TEXT:*shit*:#:/kick $chan $nick SwEaRkIcK! WE DONT USE  $parms  IN $chan !!!
  145. n143=on 1:ACTION:*shit*:#:/kick $chan $nick SwEaRkIcK! WE DONT USE  $parms  IN $chan !!!
  146. n144=on 1:TEXT:*bitch*:#:/kick $chan $nick SwEaRkIcK! WE DONT USE  $parms  IN $chan !!!
  147. n145=on 1:ACTION:*bitch*:#:/kick $chan $nick SwEaRkIcK! WE DONT USE  $parms  IN $chan !!!
  148. n146=on 1:TEXT:*bastard*:#:/kick $chan $nick SwEaRkIcK! WE DONT USE  $parms  IN $chan !!!
  149. n147=on 1:ACTION:*bastard*:#:/kick $chan $nick SwEaRkIcK! WE DONT USE  $parms  IN $chan !!!
  150. n148=on 1:TEXT:*nigger*:#:/kick $chan $nick SwEaRkIcK! WE DONT USE  $parms  IN $chan !!!
  151. n149=on 1:ACTION:*nigger*:#:/kick $chan $nick SwEaRkIcK! WE DONT USE  $parms  IN $chan !!!
  152. n150=on 1:TEXT:*spic*:#:/kick $chan $nick SwEaRkIcK! WE DONT USE  $parms  IN $chan !!!
  153. n151=on 1:ACTION:*spic*:#:/kick $chan $nick SwEaRkIcK! WE DONT USE  $parms  IN $chan !!!
  154. n152=on 1:TEXT:*ass*:#:/kick $chan $nick SwEaRkIcK! WE DONT USE  $parms  IN $chan !!!
  155. n153=on 1:ACTION:*ass*:#:/kick $chan $nick SwEaRkIcK! WE DONT USE  $parms  IN $chan !!!
  156. n154=on 1:TEXT:*damn*:#:/kick $chan $nick SwEaRkIcK! WE DONT USE  $parms  IN $chan !!!
  157. n155=on 1:ACTION:*damn*:#:/kick $chan $nick SwEaRkIcK! WE DONT USE  $parms  IN $chan !!!
  158. n156=on 1:TEXT:*pussy*:#:/kick $chan $nick SwEaRkIcK! WE DONT USE  $parms  IN $chan !!!
  159. n157=on 1:ACTION:*pussy*:#:/kick $chan $nick SwEaRkIcK! WE DONT USE  $parms  IN $chan !!!
  160. n158=on 1:TEXT:*dick*:#:/kick $chan $nick SwEaRkIcK! WE DONT USE  $parms  IN $chan !!!
  161. n159=on 1:ACTION:*dick*:#:/kick $chan $nick SwEaRkIcK! WE DONT USE  $parms  IN $chan !!!
  162. n160=on 1:TEXT:*whore*:#:/kick $chan $nick SwEaRkIcK! WE DONT USE  $parms  IN $chan !!!
  163. n161=on 1:ACTION:*whore*:#:/kick $chan $nick SwEaRkIcK! WE DONT USE  $parms  IN $chan !!!
  164. n162=#swear end
  165. n163=#modecounter off
  166. n164=on 1:KICK:#:/inc %kickc 1 | /notice $knick 12You 10are 12number 10ñ %kickc ñ 12that 10has 12been 10KICKED 12from 10 $chan 12since 10 %kickdate (Australian) í! %ver | if %kickc = 100 notice $knick 12CONGRATULATIONS !! NOT !! %ver
  167. n165=on 1:VOICE:#:/inc %voicec 1 | /notice $vnick 12You 10are 12number 10ñ %voicec ñ 12that 10has 12been 10VOICED 12in 10 $chan 12since 10 %kickdate (Australian) í! %ver
  168. n166=on 1:DEVOICE:#:/inc dvoicec 1 | /notice $vnick 12You 10are 12number 10ñ %dvoicec ñ 12that 10has 12been 10DEVOICED 12in 10 $chan 12since 10 %kickdate (Australian) í! %ver
  169. n167=on 1:OP:#:/inc %opc 1 | /notice $opnick 12You 10are 12number 10ñ %voicec ñ 12that 10has 12been 10OPED 12in 10 $chan 12since 10 %kickdate (Australian) í! %ver
  170. n168=on 1:DEOP:#:/inc %dopc 1 | /notice $opnick 12You 10are 12number 10ñ %voicec ñ 12that 10has 12been 10DEOPED 12in 10 $chan 12since 10 %kickdate (Australian) í! %ver
  171. n169=#Modecounter end
  172. n170=#autojoin off
  173. n171=on 1:JOIN:#:{
  174. n172=  inc %count 1
  175. n173=  /notice $nick Welcome to 4,15-4,14:4,1[  $+ $chan $+ ]4,14:4,15-4,15Todays date-<  $+ $date $+  >-4,14You are person Number -{ 9,1 %count 4,14 }-4,1{⌐-K∩úúσH=⌐≡ú≡«º-⌐}
  176. n174=}
  177. n175=#autojoin end
  178. n176=#autoping on
  179. n177=on 1:text:*ping me*:#:/ctcp $nick ping
  180. n178=on 1:text:*ping pl*:#:/ctcp $nick ping
  181. n179=on 1:text:*my ping*:#:/ctcp $nick ping
  182. n180=on 1:action:*ping me*:#:/ctcp $nick ping
  183. n181=on 1:action:*ping pl*:#:/ctcp $nick ping
  184. n182=on 1:action:*my ping*:#:/ctcp $nick ping
  185. n183=on 1:ctcpreply:*ping*: %pt = $ctime - $parm2 | /notice $nick 3***Your ping reply is %pt seconds
  186. n184=#Autoping end
  187. n185=#fserver off
  188. n186=on 1:TEXT:%trigger:#:/fserve $nick %maxgets %filedir %welcome
  189. n187=on 2:TEXT:%trigger:#:/msg $nick you have %maxgets maximum gets on $me 's first server.
  190. n188=#Fserver End
  191. n189=#fserver2 off
  192. n190=on 1:TEXT:%trigger2:#:/fserve $nick %maxgets2 %filedir2 %welcome2
  193. n191=on 2:TEXT:%trigger2:#:/msg $nick you have %maxgets2 maximum gets on $me 's second server.
  194. n192=#Fserver2 End
  195. n193=on 1:FILERCVD:*.*: {
  196. n194=  echo 5 Recieved  $+ $nopath($filename) $+  $lof($filename) $+ b from  $+ $nick $+  and put it in $getdir
  197. n195=  if (.txt isin $nopath($filename)) {
  198. n196=    /run notepad.exe $filename
  199. n197=  }
  200. n198=}
  201. n199=#echo off
  202. n200=on 1:TEXT:*:#:/msg $chan 7< 3 $nick 7> $parms 7<3iLLegaLNag7>
  203. n201=on 1:ACTION:*:#:/msg $chan 7< 3 $nick 7> $parms 7<3iLLegaLNag7>
  204. n202=#Echo end
  205. n203=#trans off
  206. n204=on 1:TEXT:*brb*:#:/msg $chan $nick will BE RIGHT BACK
  207. n205=on 1:CHAT:*brb*:#:/msg $me $nick will BE RIGHT BACK
  208. n206=on 1:TEXT:*bbl*:#:/msg $chan $nick will BE BACK LATER
  209. n207=on 1:CHAT:*bbl*:#:/msg $me $nick will BE BACK LATER
  210. n208=on 1:TEXT:*lol*:#:/msg $chan $nick LAUGHS OUT LOUD!!!
  211. n209=on 1:CHAT:*lol*:#:/msg $me $nick LAUGHS OUT LOUD!!!
  212. n210=on 1:TEXT:*wtf*:#:/msg $chan $nick sais WHAT THE FUCK???
  213. n211=on 1:CHAT:*wtf*:#:/msg $me $nick sais WHAT THE FUCK???
  214. n212=on 1:TEXT:*rofl*:#:/msg $chan $nick ROLLS ON THE FLOOR LAUGHING!!!
  215. n213=on 1:CHAT:*rofl*:#:/msg $me $nick ROLLS ON THE FLOOR LAUGHING!!!
  216. n214=#trans end
  217. n215=#floodprot off
  218. n216=ON @1:TEXT:*:#:{
  219. n217=  inc %chanflood [ $+ [ $nick [ $+ [ $chan ] ] ] ]
  220. n218=  .timer6 1 5 /chanfloodalias $nick $chan
  221. n219=  if (%chanflood [ $+ [ $nick [ $+ [ $chan ] ] ] ] == 5) {
  222. n220=    mode $chan -o+b $nick $address($nick,3)
  223. n221=    kick $chan $nick Channel Text Flood detected
  224. n222=    .timer7 1 10 mode $chan -b $address($nick,3)
  225. n223=    unset %chanflood [ $+ [ $nick [ $+ [ $chan ] ] ] ]
  226. n224=  }
  227. n225=}
  228. n226=#floodprot end
  229. n227=;----------------------------------------------------------------------------------------------------------------------------------------------
  230. n228=;This is the E-Mail account 1 script...
  231. n229=#sendmail on
  232. n230=on 999:CHATOPEN:{
  233. n231=  /msg =$nick mail from: %email
  234. n232=  /msg =$nick rcpt to: %to
  235. n233=  /msg =$nick data
  236. n234=  /timer10 1 4 /echo -a 4Sending mail...
  237. n235=  /timer11 1 4 /msg =$nick %mailmessage
  238. n236=  /timer12 1 5 /msg =$nick .
  239. n237=}
  240. n238=#sendmail end
  241. n239=#sendmail2 on
  242. n240=on 999:CHAT:*Message accepted for delivery*:/ruser 999 $me | /echo -a 4Mail successfully sent!!! Close me up now...
  243. n241=#sendmail2 end
  244. n242=#getmail on
  245. n243=on 1000:CHATOPEN:{
  246. n244=  /msg =$nick user %user
  247. n245=  /msg =$nick pass %pass
  248. n246=  /timer13 1 4 /echo -a 4To get mail type retr <message #> such as RETR 1
  249. n247=  /timer14 1 5 /echo -a 4To delete a file type dele <message #> such as DELE 1
  250. n248=  /timer15 1 6 /echo -a 2Once you are done you must type QUIT or EXIT
  251. n249=  
  252. n250=}
  253. n251=#getmail end
  254. n252=#getmail2 on
  255. n253=on 1000:CHATCLOSE:/ruser 1000 $me
  256. n254=#getmail2 end
  257. n255=#ipforpop off
  258. n256=on 1:dns: {
  259. n257=  if $raddress != $null { set %pop $raddress | echo 4 -a POP3 server IP:2 %pop | /disable #ipforpop }
  260. n258=  else invalid
  261. n259=  halt
  262. n260=}
  263. n261=#ipforpop end
  264. n262=;----------------------------------------------------------------------------------------------------------------------------------------------
  265. n263=;This is the E-Mail account 2 script...
  266. n264=#sendmail2 on
  267. n265=on 1001:CHATOPEN:{
  268. n266=  /msg =$nick mail from: %email2
  269. n267=  /msg =$nick rcpt to: %to2
  270. n268=  /msg =$nick data
  271. n269=  /timer18 1 4 /echo -a 4Sending mail...
  272. n270=  /timer19 1 4 /msg =$nick %mailmessage2
  273. n271=  /timer20 1 5 /msg =$nick .
  274. n272=}
  275. n273=#sendmail2 end
  276. n274=#sendmail3 on
  277. n275=on 1001:CHAT:*Message accepted for delivery*:/ruser 1001 $me | /echo -a 4Mail successfully sent!!! Close me up now...
  278. n276=#sendmail3 end
  279. n277=#getmail2 on
  280. n278=on 1002:CHATOPEN:{
  281. n279=  /msg =$nick user %user2
  282. n280=  /msg =$nick pass %pass2
  283. n281=  /timer21 1 4 /echo -a 4To get mail type retr <message #> such as RETR 1
  284. n282=  /timer22 1 5 /echo -a 4To delete a file type dele <message #> such as DELE 1
  285. n283=  /timer23 1 6 /echo -a 2Once you are done you must type QUIT or EXIT
  286. n284=  
  287. n285=}
  288. n286=#getmail2 end
  289. n287=#getmail3 on
  290. n288=on 1002:CHATCLOSE:/ruser 1002 $me
  291. n289=#getmail3 end
  292. n290=#ipforpop2 off
  293. n291=on 1:dns: {
  294. n292=  if $raddress != $null { set %pop4 $raddress | echo 4 -a POP3 server 2 IP:2 %pop4 | /disable #ipforpop }
  295. n293=  else invalid
  296. n294=  halt
  297. n295=}
  298. n296=#ipforpop2 end
  299.